10 POKE53281,0:POKE53280,0 50 PRINT "[147] [155]WILLKOMMEN ZU" 60 PRINT " [172][162][162][162][162][162][162][162][187]" 70 PRINT " [161]YAHTZEE[146][161]"; 80 PRINT "[157][157][157][157][157][157][157][157][157][188][162][162][162][162][162][162][162][146][190]" 90 S$="123456DVHKGCY":F=0:G=0:SS=0:E$="" 95 FOR I=1 TO 39:E$=E$+" ":NEXT 100 L$="" 105 A$(0)="[166][166][166][157][157][157][166][166][166][157][157][157][166][166][166][157][157][157][145][145]" 110 A$(1)=" [157][157][157] [209] [157][157][157] [157][157][157][145][145]" 115 A$(2)="[209] [157][157][157] [157][157][157] [209][157][157][157][145][145]" 120 A$(3)="[209] [157][157][157] [209] [157][157][157] [209][157][157][157][145][145]" 125 A$(4)="[209] [209][157][157][157] [157][157][157][209] [209][157][157][157][145][145]" 130 A$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209][157][157][157][145][145]" 135 A$(6)="[209][209][209][157][157][157] [157][157][157][209][209][209][157][157][157][145][145]" 140 B$="[176][192][192][192][174][157][221][157][221][157][221][157][189][157][157][192][157][157][192][157][157][192]" 145 B$=B$+"[157][157][173][157][145][221][157][145][221][157][145][221][157][145]":ST$="" 150 C$="":FOR I=1 TO 6:C$=C$+" [146] ":NEXT 155 C$=LEFT$(C$,52):CR$=CHR$(13) 160 D$="[157][207][163][163][163][208][157][167][157][186][157][157][164][157][157][164][157][157][164][157][157][204][157][145][165]" 170 DIM S(13) 200 PRINT "";CR$;"INSTRUKTIONEN (J/N)? "; 210 F=18-F:PRINT CHR$(F);" [146][157]";:T=TI 220 GET I$:IF I$="" AND TI-T<25 THEN 220 230 IF I$="N" THEN 630 240 IF I$<>"J" THEN 210 250 PRINT "[147] DIESES SPIEL WIRD MIT 5 WUERFELN" 260 PRINT "GESPIELT. - ZIEL IST ES, SO VIELE" 270 PRINT "PUNKTE WIE MOEGLICH ZU ERZIELEN." 280 PRINT "ES GIBT 13 DURCHGAENGE, DU KANNST" 290 PRINT "BIS ZU DREIMAL WUERFELN." 300 PRINT " NACH JEDEM WURF (AUSSER DEM LETZTEN)" 310 PRINT "KANNST DU EINEN ODER MEHRERE WUERFEL" 320 PRINT "BEHALTEN. MIT DEN ANDEREN WIRD NOCH-" 330 PRINT "MALS GEWUERFELT. - ZUM BEISPIEL :";L$;""; 340 FOR I=1 TO 5:PRINT B$;"";:NEXT 350 H(1)=5:H(2)=2:H(3)=3:H(4)=3:H(5)=1 360 PRINTL$;"";:FOR I=1 TO 5:PRINT A$(H(I)); 370 PRINT "";:NEXT:PRINT "KEEP? 33[145]" 380 POKE198,0:WAIT198,1:POKE198,0 400 PRINT "[145][145][145][145][145][145][145][145][145][145][145][145]BEDEUTET,DASS "; 410 PRINT "VON 5[146] 2[146] 3[146] 3[146] 1[146] DU DIE" 420 PRINT "2 3[146]ER BEHAELTST UND MIT" 430 PRINT " 5[146] 2[146] 1[146] NOCHMAL GEWUERFELT WIRD." 440 PRINT "MIT  A [146] BEHAELTST DU ALLE!" 450 GET I$:IF I$="" THEN 450 460 PRINT "[147] NACH DEM WUERFELN KANNST DU DIE FUENF"; 470 PRINT "WERTE IN EINE DER 13 KATEGORIEN EINTRA- "; 480 PRINT "GEN. - JE EINE PRO DURCHGANG. -" 490 PRINT "AM ENDE WERDEN DIE 13 WERTE ADDIERT." 500 PRINT "DIES ERGIBT DIE SUMME (PLUS BONUS)." 510 PRINT "DIE 13 KATEGORIEN SIND:" 520 PRINT "1 - EINER";CR$;"2 - ZWEIER";CR$;"3 - DREIER" 530 PRINT "4 - VIERER";CR$;"5 - FUENFER";CR$;"6 - SECHSER" 540 PRINT "D - DREI GLEICHE (ALLE AUGEN ZAEHLEN)" 550 PRINT "V - VIER GLEICHE (WIE VORSTEHEND)" 560 PRINT "H - FULL HOUSE (ZAEHLT 25)" 570 PRINT "K - KLEINE STRASSE(4 IN FOLGE) ZAEHLT 30"; 580 PRINT "G - GROSSE STRASSE(5 IN FOLGE) ZAEHLT 40"; 590 PRINT "C - CHANCE (ES ZAEHLEN ALLE AUGEN)" 600 PRINT "Y - YAHTZEE (5 GLEICHE) ZAEHLT 50" 610 PRINT " RETURN[146] ZUM ANFANGEN !" 620 GET I$:IF I$="" THEN 620 630 PRINT "[147]";C$;:FOR I=1 TO 6 640 PRINT " ";MID$(S$,I,1);"ER [146] ";:NEXT 650 PRINT "[157][157]";C$:PRINT C$;"DREI [146] "; 660 PRINT "VIER [146] HOUSE[146] KLEIN[146] GROSS[146]"; 670 PRINT " CHANC[146]";C$ 680 PRINT SPC(16);" [157][157][157][157][157][157][157]"; 690 PRINT "YAHTZEE[157][157][157][157][157][157][157] ";CR$;L$; 695 FOR I=1 TO 5:PRINT B$;"";:NEXT 700 FOR I=1 TO 13:S(I)=-1:NEXT:Q=0:G=G+1 710 FOR I=1 TO 13:L=1:FOR J=1 TO 3 720 FOR K=L TO 5:H(K)=INT(6*RND(1)+1):NEXT 730 PRINT L$;"";:FOR K=1 TO 5 740 IF K>=L THEN PRINT A$(0); 742 PRINT A$(H(K));"";:NEXT:IF J=3 THEN 920 744 GET I$:IF I$<>""THEN 744 750 PRINT L$;"" 760 PRINT "KEEP? ";:K=0 770 F=18-F:PRINT CHR$(F);" [146][157]";:T=TI 780 GET I$:IF I$="" AND TI-T<25 THEN 780 790 IF I$>"/" AND I$<"7" THEN PRINT I$;:K=K+1:I(K)=ASC(I$)-48 800 IF I$="A" THEN 915 805 IF I$=CHR$(20) AND K>0 THEN K=K-1:PRINT " [157][157]"; 810 IF I$<>CR$ THEN 770 815 IF K=0 THEN L=1:GOTO 910 820 FOR L=1 TO K:FOR M=L TO 5 830 IF I(L)=H(M) THEN 850 840 NEXT:GOTO 860 850 H(M)=H(L):H(L)=I(L):NEXT L:GOTO 890 860 PRINT " ???[145]":T=TI 870 IF TI-T<30 THEN 870 880 PRINT E$;"[145]":GOTO 760 890 PRINT "[145]";CR$;E$:IF K<>5 THEN 910 900 PRINT CR$;" DRUECK A[146] UM ALLE ZU BEHALTEN![145]":T=TI 902 IF TI-T<120 THEN 902 904 PRINT E$:GOTO 920 910 NEXT J 915 PRINT "[157][157][157][157][157][157] "; 920 IF I<13 THEN 950 930 FOR A=1 TO 13:IF S(A)<>-1 THEN NEXT 940 GOTO 1030 950 PRINT L$;"" 960 PRINT SPC(25);"WOHIN? "; 970 F=18-F:PRINT CHR$(F);" [146][157]";:T=TI 980 GET I$:IF I$="" AND TI-T<25 THEN 980 990 FOR A=1 TO 13:IF I$=MID$(S$,A,1) THEN 1010 1000 NEXT:GOTO 970 1010 IF S(A)=-1 THEN 1028 1020 PRINT CR$;"DU KANNST NUR EINMAL EINTRAGEN ! [145]":T=TI 1022 IF TI-T<120 THEN 1022 1024 PRINT E$;"[145]";:GOTO 950 1028 PRINT "[157][157][157][157][157][157][157] "; 1030 S(A)=0:FOR J=1 TO 6:M(J)=0:NEXT 1040 FOR J=1 TO 5:M(H(J))=M(H(J))+1:NEXT 1050 IF A<7 THEN S(A)=A*M(A):GOTO 1190 1060 ON A-6 GOTO 1070,1070,1090,1110,1110,1180,1160 1070 FORJ=1 TO 6:IF M(J)>A-5 THEN 1180 1080 NEXT:GOTO 1190 1090 FOR J=1 TO 6:IF M(J)=1 OR M(J)=4 THEN 1190 1100 NEXT:S(9)=25:GOTO 1190 1110 C=0:FOR J=1 TO 6:IF M(J)=5 THEN 1150 1120 C=C+1:IF M(J)=0 THEN C=0 1130 IF C=A-6 THEN 1150 1140 NEXT:GOTO 1190 1150 S(A)=10*A-70:GOTO 1190 1160 FOR J=2 TO 5:IF H(J)<>H(1) THEN 1190 1170 NEXT:S(13)=50:GOSUB 2000:GOTO 1190 1180 S(A)=H(1)+H(2)+H(3)+H(4)+H(5) 1190 IF A=13 OR S(13)<>50 THEN 1220 1200 FOR J=2 TO 5:IF H(J)<>H(1) THEN 1220 1210 NEXT:Q=Q+100:PRINT CR$;" 100 POINT BONUS[145]":GOSUB 2000:T=TI 1212 IF TI-T<80 THEN 1212 1214 PRINT E$ 1220 I$=STR$(S(A))+" ":IF S(A)>9 THEN I$=RIGHT$(I$,LEN(I$)-1) 1230 PRINT "";:J=A:IF A>6 THEN PRINT "";:J=A-6 1240 IF A<>13 THEN PRINT SPC(7*J-6);D$;I$:GOTO 1270 1250 PRINT "";SPC(16);"[207][163][163][163][163][163][208][157][167]"; 1260 PRINT "[157][186][157][157][164][157][157][164][157][157][164][157][157][164][157][157][164][157][157][204][157][145][165] ";I$;" " 1270 NEXT I 1300 T=S(1)+S(2)+S(3)+S(4)+S(5)+S(6) 1310 PRINT L$;"";CR$;"OBEN =";T;"[157] PUNKTE" 1320 IF T>62 THEN T=T+35:PRINT "PLUS 35 BONUS PUNKTE" 1330 U=S(7)+S(8)+S(9)+S(10)+S(11)+S(12)+S(13) 1340 PRINT "UNTEN =";U;"[157] PUNKTE" 1350 IF Q>0 THEN PRINT "PLUS";Q;"[157] BONUS PUNKTE" 1360 PRINT "GESAMT= ";T+U+Q;"[157] [146] PUNKTE" 1365 SS=SS+T+U+Q 1370 PRINT "NOCH EIN SPIEL?"; 1372 T=TI 1374 GET I$:IF I$="" AND TI-T<25 THEN 1374 1376 F=18-F:PRINT CHR$(F);" [146][157]";:IF I$="" THEN 1372 1380 IF LEFT$(I$,1)="Y" THEN 630 1385 IF G=1 THEN END 1390 PRINT "[145][145][145][145]";CR$;E$ 1400 PRINT "DU HAST";SS;"[157] PUNKTE IN"; 1410 PRINT G;"[157] SPIELEN." 1420 PRINT "DAS SIND ";INT(SS/G+.5); 1430 PRINT "[157] [146] PUNKTE JE SPIEL." 1440 PRINT E$;"[145]";:END 2000 C=53:FOR K=1 TO 6 2010 POKE 59409,C:C=113-C:T=TI 2020 IF TI-T<10 THEN 2020 2030 NEXT:RETURN